(define (make-list len obj)
  (if (= len 0)
      '()
      (cons obj (make-list (- len 1) obj))))
